-- card: 5444 from stack: in.hc
-- bmap block id: 0
-- flags: 0000
-- background id: 4603
-- name: D5
----- HyperTalk script -----
on openCard
  lock screen
  colorizeHC "Add","PLANETS:SUN:UI_MAC:DO5.PIC"
  unlock screen
end openCard


on closeCard
  lock screen
  colorizeHC "colorFill"   -- redraw previous screens
  unlock screen
end closeCard

on goEvent
  lock screen
  go to cd "D1"
  unlock screen
end goEvent